home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / mp / lo-u370_aix.s < prev    next >
Encoding:
Text File  |  1991-06-19  |  1.3 KB  |  78 lines
  1. * --- Copyright W. Schelter 1991 --#
  2.     file_    lo-aix370.c
  3.     entry    $oVhc2_1r
  4. $oVhc2_1r    equ    0
  5.     entry    $oVO
  6. $oVO    equ    0
  7. L$$C0    csect
  8.     ds    0d
  9. L00$TEXT    equ    *
  10.     entry    _divsl3
  11. * -------------| divsl3 |-----------------------#
  12.     ds    0f
  13.     dc    al2(0)    arglength in words
  14.     dc    xl2'FFFF'    argument regs unknown
  15.     dc    al4(LE$1-_divsl3)    code size
  16.     dc    xl2'0000'    no flags currently defined
  17.     dc    al1(3)    parmlength in words
  18.     dc    al1(1)    format
  19. _divsl3    ds    0h
  20. LX$011    equ    *
  21.     using    LX$011,12
  22.     stm    LR$1,15,x'10'+LV$1(13)
  23.     lr    12,13
  24.     la    11,x'60'
  25.     slr    13,11
  26.     st    12,4(,13)
  27.     lr    12,15
  28.     lr    15,0
  29.     l    14,0(,2)
  30.     dr    14,1
  31.     lr    0,15
  32.     st    14,0(,2)
  33.     lm    LR$1,14,x'70'+LV$1(13)
  34.     br    14
  35. LE$1    equ    *
  36. LR$1    equ    2
  37. LV$1    equ    0
  38.     entry    _mulul3
  39. * -------------| mulul3 |-----------------------#
  40.     ds    0f
  41.     dc    al2(0)    arglength in words
  42.     dc    xl2'FFFF'    argument regs unknown
  43.     dc    al4(LE$2-_mulul3)    code size
  44.     dc    xl2'0000'    no flags currently defined
  45.     dc    al1(3)    parmlength in words
  46.     dc    al1(1)    format
  47. _mulul3    ds    0h
  48. LX$021    equ    *
  49.     using    LX$021,12
  50.     stm    LR$2,15,x'10'+LV$2(13)
  51.     lr    12,13
  52.     la    11,x'60'
  53.     slr    13,11
  54.     st    12,4(,13)
  55.     lr    12,15
  56.     lr    11,0
  57.     lr    15,1
  58.     mr    14,11
  59.     lr    0,14
  60.     ltr    11,11
  61.     bnm    LF$024
  62.     ar    0,1
  63. L0$023    equ    *
  64. LF$024    equ    *
  65.     ltr    1,1
  66.     bnm    LF$025
  67.     ar    0,11
  68. L0$025    equ    *
  69. LF$025    equ    *
  70.     st    0,0(,2)
  71.         lr      0,15  
  72.     lm    LR$2,14,x'70'+LV$2(13)
  73.     br    14
  74. LE$2    equ    *
  75. LR$2    equ    2
  76. LV$2    equ    0
  77.     end
  78.